Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/bitblt/bitblt.frm

Text File | 1995-12-05 | 10KB | 410 lines

VERSION 2.00
Begin Form Form1
   Caption         =   "BitBlt Tester"
   ClientHeight    =   5685
   ClientLeft      =   810
   ClientTop       =   1515
   ClientWidth     =   9150
   Height          =   6090
   Icon            =   BITBLT.FRX:0000
   Left            =   750
   LinkTopic       =   "Form1"
   ScaleHeight     =   379
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   610
   Top             =   1170
   Width           =   9270
   Begin ComboBox Combo1
      Height          =   288
      Left            =   5520
      Style           =   2  'Dropdown List
      TabIndex        =   7
      Top             =   360
      Width           =   1932
   End
   Begin CommandButton Command3
      Caption         =   "EXECUTE BitBlt"
      Height          =   492
      Left            =   240
      TabIndex        =   0
      Top             =   2280
      Width           =   3252
   End
   Begin CommandButton Command5
      Caption         =   "Hide"
      Height          =   492
      Left            =   2280
      TabIndex        =   13
      Top             =   960
      Width           =   612
   End
   Begin CommandButton Command4
      Caption         =   "Draw Print Regions"
      Height          =   492
      Left            =   240
      TabIndex        =   12
      Top             =   960
      Width           =   1932
   End
   Begin TextBox Text8
      Height          =   372
      Left            =   4560
      TabIndex        =   6
      Text            =   "30"
      Top             =   360
      Width           =   612
   End
   Begin TextBox Text7
      Height          =   372
      Left            =   3840
      TabIndex        =   5
      Text            =   "20"
      Top             =   360
      Width           =   612
   End
   Begin TextBox Text6
      Height          =   372
      Left            =   2760
      TabIndex        =   4
      Text            =   "110"
      Top             =   360
      Width           =   612
   End
   Begin TextBox Text5
      Height          =   372
      Left            =   2040
      TabIndex        =   3
      Text            =   "170"
      Top             =   360
      Width           =   612
   End
   Begin TextBox Text4
      Height          =   372
      Left            =   960
      TabIndex        =   2
      Text            =   "10"
      Top             =   360
      Width           =   612
   End
   Begin TextBox Text3
      Height          =   372
      Left            =   240
      TabIndex        =   1
      Text            =   "10"
      Top             =   360
      Width           =   612
   End
   Begin TextBox Text2
      Height          =   372
      Left            =   6240
      TabIndex        =   10
      Text            =   "c:\windows\redbrick.bmp"
      Top             =   3120
      Width           =   2652
   End
   Begin TextBox Text1
      Height          =   372
      Left            =   1320
      TabIndex        =   8
      Text            =   "c:\windows\leaves.bmp"
      Top             =   3120
      Width           =   2652
   End
   Begin CommandButton Command2
      Caption         =   "Loadpicture"
      Height          =   372
      Left            =   240
      TabIndex        =   9
      Top             =   3120
      Width           =   1092
   End
   Begin CommandButton Command1
      Caption         =   "Loadpicture"
      Height          =   372
      Left            =   5160
      TabIndex        =   11
      Top             =   3120
      Width           =   1092
   End
   Begin PictureBox Picture2
      Height          =   2052
      Left            =   5160
      ScaleHeight     =   135
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   247
      TabIndex        =   15
      TabStop         =   0   'False
      Top             =   3480
      Width           =   3732
   End
   Begin PictureBox Picture1
      Height          =   2052
      Left            =   240
      ScaleHeight     =   135
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   247
      TabIndex        =   14
      TabStop         =   0   'False
      Top             =   3480
      Width           =   3732
   End
   Begin Label Label8
      Caption         =   "Label8"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "Courier"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   252
      Left            =   240
      TabIndex        =   23
      Top             =   1920
      Width           =   8652
   End
   Begin Label Label7
      Caption         =   "BitBlt Command"
      Height          =   252
      Left            =   240
      TabIndex        =   22
      Top             =   1680
      Width           =   2772
   End
   Begin Label Label6
      Caption         =   "Destination"
      Height          =   252
      Left            =   5160
      TabIndex        =   21
      Top             =   2880
      Width           =   1452
   End
   Begin Label Label1
      Caption         =   "Source"
      Height          =   252
      Left            =   240
      TabIndex        =   20
      Top             =   2880
      Width           =   732
   End
   Begin Label Label5
      Caption         =   "Raster Operation"
      Height          =   252
      Left            =   5520
      TabIndex        =   19
      Top             =   120
      Width           =   1932
   End
   Begin Label Label4
      Caption         =   "UpLeft of Source"
      Height          =   252
      Left            =   3840
      TabIndex        =   18
      Top             =   120
      Width           =   1452
   End
   Begin Label Label3
      Caption         =   "Wid. && Ht. of Dest."
      Height          =   252
      Left            =   2040
      TabIndex        =   17
      Top             =   120
      Width           =   1572
   End
   Begin Label Label2
      Caption         =   "UpLeft of Dest."
      Height          =   252
      Left            =   240
      TabIndex        =   16
      Top             =   120
      Width           =   1332
   End
End
Declare Function BitBlt Lib "GDI" (ByVal hDestDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As Integer, ByVal XSrc As Integer, ByVal YSrc As Integer, ByVal dwRop As Long) As Integer
Const BLACKNESS = &H42
Const DSTINVERT = &H550009
Const MERGECOPY = &HC000CA
Const MERGEPAINT = &HBB0226
Const NOTSRCCOPY = &H330008
Const NOTSRCERASE = &H1100A6
Const PATCOPY = &HF00021
Const PATINVERT = &H5A0049
Const PATPAINT = &HFB0A09
Const SRCAND = &H8800C6
Const SRCCOPY = &HCC0020
Const SRCERASE = &H440328
Const SRCINVERT = &H660046
Const SRCPAINT = &HEE086
Const WHITENESS = &HFF0062
Dim k As Long

Sub Combo1_Change ()
combos
End Sub

Sub Combo1_Click ()
combos
End Sub

Sub combos ()
Select Case combo1.ListIndex
Case 0
    k = BLACKNESS
Case 1
    k = DSTINVERT
Case 2
    k = MERGECOPY
Case 3
    k = MERGEPAINT
Case 4
    k = NOTSRCCOPY
Case 5
    k = NOTSRCERASE
Case 6
    k = PATCOPY
Case 7
    k = PATINVERT
Case 8
    k = PATPAINT
Case 9
    k = SRCAND
Case 10
    k = SRCCOPY
Case 10
    k = SRCERASE
Case 12
    k = SRCINVERT
Case 13
    k = SRCPAINT
Case 14
    k = WHITENESS
End Select
filllabel

End Sub

Sub Command1_Click ()
picture2 = LoadPicture(text2)
End Sub

Sub Command2_Click ()
picture1 = LoadPicture(text1)
End Sub

Sub Command3_Click ()
command5_click
i% = BitBlt(picture2.hDC, Val(text3), Val(text4), Val(text5), Val(text6), picture1.hDC, Val(text7), Val(text8), k)


End Sub

Sub Command4_Click ()
command5_click
picture1.DrawStyle = 0
picture1.DrawWidth = 2
picture1.Line (Val(text7), Val(text8))-(picture1.Width - 2, picture1.Height - 2), , B
picture1.DrawWidth = 1
'picture1.Line